home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Projects / Tutorials / HelloWorld.scl < prev    next >
Text File  |  1998-06-24  |  1KB  |  36 lines
  1. /******************************************************************************\
  2. **  "Hello World" example for Secal                                           **
  3. **  Requires Kickstart 2                                                      **
  4. \******************************************************************************/
  5.  
  6.  
  7. go main;                                    # EXECUTION STARTS AT THE BEGINNING OF THE
  8.                                                     # PROGRAM, GO TO THE MAIN CODE
  9.  
  10. #-------------------------------------------------------------------------------
  11.  
  12.  
  13. include "inc/libcalls/exec.inc";        #\ LIBCALL AND TAGCALL MACROS
  14. include "inc/tagcalls/dos.inc";            #/ FOR CALLING SYSTEM FUNCTIONS
  15.  
  16. def SysBase=[4.w].ul;                    # DEFINE EXECBASE FOR MACROS
  17.  
  18. obj DOSBase:ulong;                        # LIBRARY BASE
  19.  
  20.  
  21.  
  22. main:                                                    # MAIN ENTRY POINT
  23. OpenLibrary("dos.library",37); DOSBase:=d0;    # OPEN DOS LIBRARY
  24. if DOSBase then
  25.     Printf("Hello World!\n");            # PRINT MESSAGE
  26.  
  27.     CloseLibrary(DOSBase);            # CLOSE DOS LIBRARY
  28. ;
  29.  
  30. d0.l:=0;                                            # RETURN CODE FOR DOS
  31. rts;                                                    # RETURN
  32.  
  33.  
  34. #-------------------------------------------------------------------------------
  35.  
  36.